home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 September / 64er_Magazin_93-09_1993_Markt__Technik_de_Side_A.d64 / restore x - demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  475b  |  19 lines
  1. 10 print"[147]lesen in aufsteigender reihenfolge:
  2. 20 [140]:[129]i[178]1[164]9:[135]b$:[153]b$:[130]
  3. 30 [153]"lesen in absteigender reihenfolge:
  4. 40 fordz=1009to1001step-1:gosub5000:readb$:printb$;:next:print
  5. 50 print"lesen in zufaelliger reihenfolge:
  6. 60 dz[178][187](ti)[172]9[170]1001:[141]5000:[135]b$:[153]b$[163]10)"(taste)cmdcmdcmdcmdcmdcmdcmd";
  7. 70 [151]198,0:[146]198,1:[153]"       ";:[137]60
  8. 1001 [131]eins
  9. 1002 [131]zwei
  10. 1003 [131]drei
  11. 1004 [131]vier
  12. 1005 [131]fuenf
  13. 1006 [131]sechs
  14. 1007 [131]sieben
  15. 1008 [131]acht
  16. 1009 [131]neun
  17. 5000 [151]786,7:[151]785,232:[151]210,7:[151]209,232:[151]211,0:[151]213,39
  18. 5010 [153]" s&$wait(NULL)hdwaitatn$waitclosedwaitpeekclose":[158]47083(dz),[183](0):[142]
  19.